﻿Imports System.Drawing.Drawing2D

Public Class InProgress

    Private Sub InProgress_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        Dim hb = New HatchBrush(HatchStyle.Percent50, Me.TransparencyKey)

        e.Graphics.FillRectangle(hb, Me.DisplayRectangle)
        pbLocalize.Width = Me.ClientSize.Width - 50
        pbLocalize.Height = 30
        pbLocalize.Left = (Me.ClientSize.Width - pbLocalize.Width) / 2
        pbLocalize.Top = (Me.ClientSize.Height - pbLocalize.Height) / 2

        lblLocalization.Left = (Me.ClientSize.Width - lblLocalization.Width) / 2
        lblLocalization.Top = (Me.ClientSize.Height - lblLocalization.Height) / 2

    End Sub
End Class